home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
MOVIES
/
TOUR.DIR
/
00015_Script_qt
< prev
next >
Wrap
Text File
|
1995-11-15
|
600b
|
34 lines
-- parent script
-- button trios
property myChannel, myScript, defaultScript
on birth me,sp
set myChannel to integer(sp)
set myScript to "playTour"&&myChannel
set defaultScript to myScript
return me
end
on rollo me
--set the cursor of sprite myChannel to [54,55]
end
on press me
--pauseTour
do myScript
end
on norm me
set the cursor of sprite myChannel to -1
end
on doScript me
put "movie clicked"
do myScript
end
on setScript me,newScript
if newScript = "reset" then
set myScript to defaultScript
else set myScript to newScript
end